8970 REM POSITION TO RELATIVE RECORD BEFORE WRITE
8980 REM  FROM SHILOH'S RAID (C) 1987 DAVID SHILOH
8990 REM  ADAPTED FROM THE TRANSACTOR, VOLUME 7 ISSUE 4
9000 IF SR THEN R1=SR+1: R2=SR+2: R=2
9010 Q=N*L: Q%=Q/254: Q=Q-Q%*254: SR=-Q%*(L>Q)
9020 IF SR THEN SR=-Q%*(Q-L-1)
9030 H%=N/256: LO=N-H%*256
9040 REM POINT TWICE AND WAIT IF NEEDED
9050 IF R THEN R=R-1: IF Q%=R1 OR Q%=R2 THEN GOSUB 9060: W=162
9060 PRINT#LF,"P"CHR$(SA)CHR$(LO)CHR$(H%)CHR$(0)
9070 IF W THEN POKE W,2: WAIT W,32: W=0
9080 RETURN